home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok82 / plot / source / myuties.def < prev    next >
Text File  |  1993-11-04  |  907b  |  43 lines
  1. DEFINITION MODULE MyUties;
  2. FROM SYSTEM IMPORT FFP;
  3. (*
  4.   Created:   13.02.1988 by
  5.              Stefan Salewski
  6.              Stolper Weg 3
  7.              2160 Stade   West-Germany
  8.              Tel: 04141/61130
  9.              
  10.   Note: compiled with AMIGA Modula-2 System by AMSoft from 5.5.88
  11.    
  12.   This Module may be freely copied. But please
  13.   leave my name in. Thanks....Stefan  
  14. *)
  15.   
  16.   TYPE 
  17.     DeziZiffer = ['0'..'9'];
  18.     DeziNummer = [0..9];
  19.  
  20.   PROCEDURE Buchstabe(c:CHAR):BOOLEAN;
  21.   
  22.   PROCEDURE IsADigit(c:CHAR):BOOLEAN;
  23.  
  24.   PROCEDURE AddOp(c:CHAR):BOOLEAN;
  25.  
  26.   PROCEDURE MulOp(c:CHAR):BOOLEAN;
  27.  
  28.   PROCEDURE Operator(c:CHAR):BOOLEAN;
  29.  
  30.   PROCEDURE Max(i,j:INTEGER):INTEGER;
  31.  
  32.   PROCEDURE Min(i,j:INTEGER):INTEGER;
  33.  
  34.   PROCEDURE exp10(i:INTEGER):LONGREAL;
  35.   
  36.   PROCEDURE exp10FFP(i:INTEGER):FFP;
  37.   
  38.   PROCEDURE Ziffer(i:DeziNummer):DeziZiffer;
  39.  
  40.   PROCEDURE Nummer(z:DeziZiffer):DeziNummer;
  41.   
  42. END MyUties.def
  43.